﻿
Partial Class SubMenu
    Inherits System.Web.UI.UserControl
    'ver 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    'Protected Sub ASPxNavBar1_ItemClick(source As Object, e As DevExpress.Web.ASPxNavBar.NavBarItemEventArgs) Handles ASPxNavBar1.ItemClick
    '    Dim Grupo As String = e.Item.Group.Name
    '    Dim Item As String = e.Item.Name
    '    Session("SesPagina") = Nothing
    '    'Select Case e.Item.Name
    '    '    Case "nbiBllImpo"
    '    '        Session("SesPagina") = "Bl-Impo"
    '    '        Response.Redirect("../page/ConsulBillOfLading.aspx?Tipo=I")
    '    '    Case "nbiBllExpo"
    '    '        Session("SesPagina") = "Bl-Expo"
    '    '        Response.Redirect("../page/ConsulBillOfLading.aspx?Tipo=E")
    '    '    Case "nbiDLibres"
    '    '        Session("SesPagina") = "DiasLibres"
    '    '        Response.Redirect("../page/Consultar_DiasLibres.aspx")
    '    'End Select
    'End Sub 
End Class
